// loo.txt - :-).
//
// Memory Cells - none.
//

beginterrainscript;

variables;

short choice, i, e;
string msgstr, lossstr;

body;

beginstate INIT_STATE;
break;

beginstate START_STATE;
break;

beginstate SEARCH_STATE;
	set_state_continue(10);
break;

beginstate STEP_INTO_SPOT_STATE;
	block_entry(1);
	set_state_continue(10);
break;

beginstate 10;
	reset_dialog();
	add_dialog_str(0, "The toilet looks like it still works.", 0);
	add_dialog_str(1, "Do you need to use it?", 0);
	add_dialog_choice(0, "No");
	add_dialog_choice(1, "Yes");
	choice = run_dialog(0);
	if (choice == 2) {
		clear_buffer();
		append_string("You finish and feel better.  ");
		// using the loo - lose some coins, then move on
		i = coins_amount();
		if (i > 4) {
			i = i / 2;
		}
		else {
			if (i > 0) { i = 1; }
		}
		e = get_ran(1, 1, 5);
		if (e == 1) {
			append_string("Unfortunately, there doesn't seem to be any toilet paper.");
		}
		else if (e == 2) {
			append_string("Now you can get back to work.");
		}
		else if (e == 3) {
			append_string("Wooo, somebody needs to light a match!");
		}
		else if (e == 4) {
			append_string("Don't forget to wash.");
		}
		else { // e == 5
			append_string("Time to stop screwing around and get moving.");
		}
		get_buffer_text(msgstr);
		clear_buffer();
		if (i > 0) {
			append_string("As you flush, some coins fall out of your open wallet.");
			i = get_ran(1, 1, i);
			if (pay_coins(i) == TRUE) { }
		}
		else {
			append_string("As you flush, you notice your empty wallet is open.  Good thing you didn't have any money, else you'd lost some.");
		}
		get_buffer_text(lossstr);
		
		message_dialog(msgstr, lossstr);
	}
break;
